home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / vol7n15.arc / MAKE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-07-25  |  440 b   |  18 lines
  1. {$R+,C-}
  2. PROGRAM Make_Real_Data;
  3. VAR
  4.   R : real;
  5.   F : file of Real;
  6. BEGIN
  7.   (* The following line is for plain TURBO*)
  8.   R := 1.2345678912E-37;       assign(F,'6DATA');
  9.   (* The following line is for TURBO-87 *)
  10.   (*R := 1.234567891234567E-50;  assign(F,'8DATA');*)
  11.   ReWrite(F);
  12.   REPEAT
  13.     Write(F,R);
  14.     R := -10.0*R;
  15.   UNTIL Abs(R) > 1E37; (* plain TURBO *)
  16.   (*UNTIL Abs(R) > 1E50;*) (* TURBO-87 *)
  17.   Close(F);
  18. END.